home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / exempl. werte (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  76 lines
  1. 10 rem ********************************
  2. 12 rem * klima 64: exempl. klimawerte *
  3. 14 rem ********************************
  4. 16 :
  5. 100 rem *** daten einlesen ************
  6. 102 qq=10:dimqq$(qq),t(qq,12),n(qq,12)
  7. 104 fori=1toqq:readqq$(i)
  8. 106 forj=1to12:readt(i,j):next
  9. 108 forj=1to12:readn(i,j):next
  10. 110 next
  11. 112 z$=chr$(0)
  12. 114 :
  13. 200 rem *** daten schreiben ***********
  14. 202 poke53280,6:poke53281,6:print"[147]"
  15. 204 print" [203]lima 64: [197]xemplarische [203]limawerte "
  16. 206 print"[196]atendiskette einlegen, [[210][197][212][213][210][206]]."
  17. 208 geta$:ifa$<>chr$(13)then208
  18. 210 :
  19. 212 open1,8,15,"i"
  20. 214 open2,8,2,"index,p,w"
  21. 216 input#1,a,a$,a1,a2:ifa=0then300
  22. 218 print"[196]atendiskette mit  0 [146] erfassten [207]rten"
  23. 220 print"[207]rten einlegen. [208]rogramm neu starten."
  24. 222 close2:close1:print:end
  25. 224 :
  26. 300 rem *** "index" *******************
  27. 302 print#2,qq:print"[201]ndex schreiben:"
  28. 304 fori=1toqq:print"/";qq$(i)
  29. 306 print#2,qq$(i):next:close2
  30. 308 :
  31. 400 rem *** "daten" *******************
  32. 402 open2,8,2,"daten,l,"+chr$(38)
  33. 404 print"[196]aten schreiben:":fori=1toqq
  34. 406 print#1,"p"+chr$(i)+z$+z$
  35. 408 print"/";qq$(i):a$="":forj=1to12
  36. 410 l=(n(i,j)and255):h=int(n(i,j)/256)
  37. 412 a$=a$+chr$(50+t(i,j))
  38. 414 a$=a$+chr$(l)+chr$(h):next
  39. 416 print#2,a$
  40. 418 next
  41. 420 close2:close1
  42. 422 print"[211]chreibvorgang beendet."
  43. 424 print:end
  44. 426 :
  45. 500 rem *** klimawerte ****************
  46. 502 data "[193]achen"
  47. 504 data 2,3,5,8,13,15,17,16,14,10,5,3
  48. 506 data 68,58,61,61,60,75,91,78,70,75,65,78
  49. 508 data "[211]tockholm"
  50. 510 data -3,-3,-1,3,9,14,17,15,12,6,2,-2
  51. 512 data 36,33,33,38,38,43,61,74,48,46,48,48
  52. 514 data "[208]aris"
  53. 516 data 2,4,6,10,13,17,18,18,15,10,6,3
  54. 518 data 35,36,39,41,49,56,50,48,49,58,47,44
  55. 520 data "[194]arcelona"
  56. 522 data 9,10,12,14,17,21,23,24,21,18,13,11
  57. 524 data 25,49,52,53,56,35,28,34,67,99,66,36
  58. 526 data "[204]eningrad"
  59. 528 data -9,-8,-5,2,9,15,18,16,11,5,-2,-7
  60. 530 data 27,25,22,30,41,54,59,82,60,46,35,32
  61. 532 data "[203]alkutta"
  62. 534 data 20,23,27,31,31,30,29,29,29,28,24,20
  63. 536 data 11,12,22,35,82,250,322,288,304,132,16,3
  64. 538 data "[208]eking"
  65. 540 data -4,-2,6,13,21,24,27,25,21,13,4,-2
  66. 542 data 3,5,5,15,38,36,211,155,64,18,8,3
  67. 544 data "[208]erth"
  68. 546 data 23,23,22,19,16,14,13,13,14,16,19,22
  69. 548 data 8,10,20,43,130,180,170,143,86,56,20,15
  70. 550 data "[210]io de [202]aneiro"
  71. 552 data 26,26,25,24,22,21,21,21,21,22,23,24
  72. 554 data 127,114,140,107,84,58,46,48,66,86,104,140
  73. 556 data "[205]ac [205]urdo"
  74. 558 data -3,-9,-18,-23,-23,-25,-27,-29,-23,-20,-10,-4
  75. 560 data 11,4,6,6,13,5,5,11,12,8,6,7
  76.